class ckBaseClass	public property name as string	public property count as integer	public sub ckBaseClass()		msgbox("Created new BaseClass")	end sub	public sub TestSub()		me.name = "base Class"	end sub	end classclass ckTestClass	extends ckBaseClass	public property fullname as string		public sub ckTestClass()		msgbox("Created new TestClass")	end sub	public sub TestSub()		me.name = "Test Class"	end sub	public sub TestFullName()		me.name = "Test Class " & me.fullname	end subend classsub main()   	dim test1 as ckTestClass	dim test2 as ckTestClass	test1 = new ckTestClass		msgbox("Assign some stuff")	test1.name = "Jose L. Cuevas"	test1.fullname = "Lourdes Perez"		//Test2 now points to test1	test2 = test1		msgbox(" test1.Name=" & test1.name & ", test2.name=" & test2.name)	test2.name = "Lourdes Perez"	msgbox(" test1.Name=" & test1.name & ", test2.name=" & test2.name)	msgbox("test done")end sub